COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PIXTST"
C00003 ENDMK
C⊗;
BEGIN "PIXTST"
REQUIRE "PIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER SIZE;

SIZE←PFLDIM("TST.PIC");
OUTSTR("SIZE= "&CVS(SIZE)&'15&'12);
 BEGIN
 INTEGER ARRAY PIC[0:SIZE-1];
 INTEGER HIG,WID,I,J;
 OUTSTR("READING ");
 GETPFL("TST.PIC",PIC[0]);
 OUTSTR("DONE"&'15&'12);
 WID←PIC[LNBY]; HIG←PIC[PCLN];
 OUTSTR("WID "&CVS(WID)&" HIG "&CVS(HIG)&'15&'12);
 FOR I←HIG%3 STEP 1 UNTIL 2*HIG%3 DO
 FOR J←WID%3 STEP 1 UNTIL 2*WID%3 DO
     PUTEL(PIC[0],I,J,15-PIXEL(PIC[0],I,J));
 OUTSTR("WRITING ");
 PUTPFL(PIC[0],"TST1.PIC");
 OUTSTR("DONE"&'15&'12);
 END;

END;